home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / epic / picman-fig2.tex < prev    next >
Text File  |  1991-01-30  |  1KB  |  33 lines
  1. \xjunk=60 \yjunk=3
  2. \loop
  3. \drawline(0,0)(\xjunk,\yjunk)
  4. \drawline(0,0)(-\xjunk,\yjunk)
  5. \drawline(0,0)(\xjunk,-\yjunk)
  6. \drawline(0,0)(-\xjunk,-\yjunk)
  7. \put(\xjunk,\yjunk){\plotchar}
  8. \put(-\xjunk,\yjunk){\plotchar}
  9. \put(\xjunk,-\yjunk){\plotchar}
  10. \put(-\xjunk,-\yjunk){\plotchar}
  11. \put(\xjunk,\yjunk){\makebox(8,0)[l]{\ \ (\number\xjunk,\number\yjunk)}}
  12. \put(-\xjunk,\yjunk){\makebox(-4,0)[r]{(\number-\xjunk,\number\yjunk)}}
  13. \put(\xjunk,-\yjunk){\makebox(8,0)[l]{\ \ (\number\xjunk,\number-\yjunk)}}
  14. \put(-\xjunk,-\yjunk){\makebox(-4,0)[r]{(\number-\xjunk,\number-\yjunk)}}
  15. \ifnum\yjunk < 53 \advance\yjunk by 10 %will go till 53.
  16. \repeat
  17. \xjunk=3 \yjunk=60
  18. \loop
  19. \drawline(0,0)(\xjunk,\yjunk)
  20. \drawline(0,0)(-\xjunk,\yjunk)
  21. \drawline(0,0)(\xjunk,-\yjunk)
  22. \drawline(0,0)(-\xjunk,-\yjunk)
  23. \put(\xjunk,\yjunk){\plotchar}
  24. \put(-\xjunk,\yjunk){\plotchar}
  25. \put(\xjunk,-\yjunk){\plotchar}
  26. \put(-\xjunk,-\yjunk){\plotchar}
  27. \put(\xjunk,\yjunk){\makebox(0,7)[t]{(\number\xjunk,\number\yjunk)}}
  28. \put(-\xjunk,\yjunk){\makebox(0,5)[t]{(\number-\xjunk,\number\yjunk)}}
  29. \put(\xjunk,-\yjunk){\makebox(0,-4)[t]{(\number\xjunk,\number-\yjunk)}}
  30. \put(-\xjunk,-\yjunk){\makebox(0,-6)[t]{(\number-\xjunk,\number-\yjunk)}}
  31. \ifnum\xjunk < 53 \advance\xjunk by 10
  32. \repeat
  33.